perm filename PATCH.1[MAC,LSP]1 blob sn#403178 filedate 1978-12-11 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(*fexpr eread require code mail)
C00003 ENDMK
CāŠ—;
(*fexpr eread require code mail)
(defprop let t skip-warning)
(remprop 'let 'macro)
(remprop 'let 'autoload)
(defprop push t skip-warning)
(defprop pop t skip-warning)
(defun save-compiler (name)
 (suspend (implode (append '(S A V E / ) (explode name))))
 (maklap))
(sstatus ttyint 200. (status ttyint 194.))
(defun s-c (a b)(save-compiler 'complr))
(sstatus ttyint 723 's-c)
(setsyntax 34. 'macro '%%%string%%%)